home *** CD-ROM | disk | FTP | other *** search
/ Popular Request / By Popular Request (Arsenal Computer)(SysOptics Distribution System).ISO / amiga1 / avm1_19.lha / source / playtime.avmsrc < prev    next >
Text File  |  1994-04-06  |  2KB  |  96 lines
  1. startrecord=true
  2. label=playtime
  3. nodetype=8
  4. line1=procedure
  5. line2=parse arg secs
  6. line3=hours = secs % (60*60)
  7. line4=minutes = (secs - (hours * 60 * 60)) % 60
  8. line5=if hours < 12 then pm = 0
  9. line6=else do; pm = 1; hours = hours - 12; end
  10. line7=if hours = 0 then hours = 12
  11. line8=
  12. line9=timeformat = getclip('AVMTimeFormat')
  13. line10=if timeformat = "" then timeformat = '%hours12 %minutes %pm'
  14. nextactiontype=3
  15. nextactionaction=
  16. endrecord=true
  17. startrecord=true
  18. label=
  19. nodetype=8
  20. line1=do i = 1 to words(timeformat)
  21. line2=  if upper(word(timeformat, i)) = '%HOURS12' then
  22. line3=    call playddnumber(hours)
  23. line4=  else if upper(word(timeformat, i)) = '%HOURS24' then
  24. line5=    call playddnumber(hours + (pm * 12))
  25. line6=  else if upper(word(timeformat, i)) = '%MINUTES' then
  26. line7=    call playddnumber(minutes)
  27. line8=  else if upper(word(timeformat, i)) = '%PM' then
  28. line9=    do
  29. line10=
  30. nextactiontype=3
  31. nextactionaction=
  32. endrecord=true
  33. startrecord=true
  34. label=
  35. nodetype=8
  36. line1=      if pm then call playnumbranch('playtimepm')
  37. line2=      else call playnumbranch('playtimeam')
  38. line3=    end
  39. line4=  else
  40. line5=    call playddvoice(word(timeformat, i))
  41. line6=end
  42. line7=
  43. line8=
  44. line9=
  45. line10=
  46. nextactiontype=3
  47. nextactionaction=
  48. endrecord=true
  49. startrecord=true
  50. label=
  51. nodetype=14
  52. comment=We're done
  53. nextactiontype=2
  54. nextactionaction=return
  55. endrecord=true
  56. startrecord=true
  57. label=playtimeam
  58. nodetype=1
  59. filename='avm:voices/timeam'
  60. comment=A.M.
  61. keyactiontype=3
  62. keyactionaction=
  63. faxactiontype=0
  64. faxactionaction=stdfax
  65. dataactiontype=0
  66. dataactionaction=stddata
  67. busyactiontype=0
  68. busyactionaction=stdbusy
  69. abortactiontype=0
  70. abortactionaction=stdabort
  71. erroractiontype=0
  72. erroractionaction=stderror
  73. nextactiontype=2
  74. nextactionaction=return
  75. endrecord=true
  76. startrecord=true
  77. label=playtimepm
  78. nodetype=1
  79. filename='avm:voices/timepm'
  80. comment=P.M.
  81. keyactiontype=3
  82. keyactionaction=
  83. faxactiontype=0
  84. faxactionaction=stdfax
  85. dataactiontype=0
  86. dataactionaction=stddata
  87. busyactiontype=0
  88. busyactionaction=stdbusy
  89. abortactiontype=0
  90. abortactionaction=stdabort
  91. erroractiontype=0
  92. erroractionaction=stderror
  93. nextactiontype=2
  94. nextactionaction=return
  95. endrecord=true
  96.